home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok11 / r.o.m. / m2sources / deactivategadget.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  37 lines
  1. DEFINITION MODULE DeactivateGadget;
  2. (*
  3.   Created:   22.7.88 by
  4.              Stefan Salewski
  5.              Stolper Weg 3
  6.              2160 Stade   West-Germany
  7.              Tel: 04141/61130
  8.              
  9.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  10.    
  11.   This Module may be freely copied. But please
  12.   leave my name in. Thanks....Stefan  
  13. *)
  14.  
  15.  
  16.   PROCEDURE PressRButton():BOOLEAN;
  17.   
  18.   (* Diese Prozedur simuliert das Druecken und Loslassen der rechten
  19.      Maustaste, indem die entsprechenden InputEvents an das InputDevice
  20.      geschickt werden. Dieses schickt sie weiter an Intuition, Intuition
  21.      denkt, die rechte Maustaste waere gedrueckt worden und deaktiviert
  22.      ein aktives StringGadget.
  23.      Dies ist die einzige mir bekannte Art, ein aktives StringGadget zu
  24.      deaktivieren, wenn man nicht ein anderes StringGadget aktivieren oder
  25.      das Fenster schiessen will. Wer kennt eine einfachere Methode???
  26.      
  27.      Das Programm ist an das Beispiel im ROM-Manual: Libraries and Devices
  28.      Seite 326 angelehnt. Auf diese Weise kann man viele Aktionen eines
  29.      Users simulieren, z.B. Mausbewegung, Tastatureingaben usw.
  30.      Mir ist es nicht gelungen, mehrere InputEvents ueber nextEvent 
  31.      miteinander zu verketten und auf einmal dem InputDevice zu
  32.      schicken. 
  33.   *)
  34.  
  35. END DeactivateGadget.
  36.   
  37.